home *** CD-ROM | disk | FTP | other *** search
/ Animator / Animator (Catchers).iso / Acrobat / Reader / AcroRd32.exe / PSPROCSET / 7 < prev    next >
Text File  |  1999-03-18  |  24KB  |  1,548 lines
  1. %%BeginResource: procset pdftext
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1987-1998 Adobe Systems Incorporated. All Rights Reserved.
  4. %%Title: Text operators for PDF
  5. PDF /PDFText 75 dict dup begin put
  6. /docinitialize
  7. {
  8. /resourcestatus where {
  9. pop
  10. /CIDParams /ProcSet resourcestatus {
  11. pop pop
  12. false /CIDParams /ProcSet findresource /SetBuildCompatible get exec
  13. } if
  14. } if
  15. PDF begin
  16. PDFText /_pdfDefineIdentity-H known
  17. { PDFText /_pdfDefineIdentity-H get exec}
  18. if
  19. end
  20. } bd
  21. /initialize {
  22. PDFText begin
  23. /_intT false dd
  24. 0 Tr
  25. } bd
  26. /terminate { end } bd
  27. /_safeput
  28. {
  29. Level2? not
  30. {
  31. 2 index load dup dup length exch maxlength ge
  32. { dup length 5 add dict copy
  33. 3 index xdd
  34. }
  35. { pop }
  36. ifelse
  37. }
  38. if
  39. 3 -1 roll load 3 1 roll put
  40. }
  41. bd
  42. /pdf_has_composefont? systemdict /composefont known def
  43. /CopyFont {
  44. {
  45. 1 index /FID ne 2 index /UniqueID ne and
  46. { def } { pop pop } ifelse
  47. } forall
  48. } bd
  49. /Type0CopyFont
  50. {
  51. exch
  52. dup length dict
  53. begin
  54. CopyFont
  55. [
  56. exch
  57. FDepVector
  58. {
  59. dup /FontType get 0 eq
  60. {
  61. 1 index Type0CopyFont
  62. /_pdfType0 exch definefont
  63. }
  64. {
  65. /_pdfBaseFont exch
  66. 2 index exec
  67. }
  68. ifelse
  69. exch
  70. }
  71. forall
  72. pop
  73. ]
  74. /FDepVector exch def
  75. currentdict
  76. end
  77. } bd
  78. /cHexEncoding
  79. [/c00/c01/c02/c03/c04/c05/c06/c07/c08/c09/c0A/c0B/c0C/c0D/c0E/c0F/c10/c11/c12
  80. /c13/c14/c15/c16/c17/c18/c19/c1A/c1B/c1C/c1D/c1E/c1F/c20/c21/c22/c23/c24/c25
  81. /c26/c27/c28/c29/c2A/c2B/c2C/c2D/c2E/c2F/c30/c31/c32/c33/c34/c35/c36/c37/c38
  82. /c39/c3A/c3B/c3C/c3D/c3E/c3F/c40/c41/c42/c43/c44/c45/c46/c47/c48/c49/c4A/c4B
  83. /c4C/c4D/c4E/c4F/c50/c51/c52/c53/c54/c55/c56/c57/c58/c59/c5A/c5B/c5C/c5D/c5E
  84. /c5F/c60/c61/c62/c63/c64/c65/c66/c67/c68/c69/c6A/c6B/c6C/c6D/c6E/c6F/c70/c71
  85. /c72/c73/c74/c75/c76/c77/c78/c79/c7A/c7B/c7C/c7D/c7E/c7F/c80/c81/c82/c83/c84
  86. /c85/c86/c87/c88/c89/c8A/c8B/c8C/c8D/c8E/c8F/c90/c91/c92/c93/c94/c95/c96/c97
  87. /c98/c99/c9A/c9B/c9C/c9D/c9E/c9F/cA0/cA1/cA2/cA3/cA4/cA5/cA6/cA7/cA8/cA9/cAA
  88. /cAB/cAC/cAD/cAE/cAF/cB0/cB1/cB2/cB3/cB4/cB5/cB6/cB7/cB8/cB9/cBA/cBB/cBC/cBD
  89. /cBE/cBF/cC0/cC1/cC2/cC3/cC4/cC5/cC6/cC7/cC8/cC9/cCA/cCB/cCC/cCD/cCE/cCF/cD0
  90. /cD1/cD2/cD3/cD4/cD5/cD6/cD7/cD8/cD9/cDA/cDB/cDC/cDD/cDE/cDF/cE0/cE1/cE2/cE3
  91. /cE4/cE5/cE6/cE7/cE8/cE9/cEA/cEB/cEC/cED/cEE/cEF/cF0/cF1/cF2/cF3/cF4/cF5/cF6
  92. /cF7/cF8/cF9/cFA/cFB/cFC/cFD/cFE/cFF] def
  93. /modEnc {
  94. /_enc xdd
  95. /_icode 0 dd
  96. counttomark 1 sub -1 0
  97. {
  98. index
  99. dup type /nametype eq
  100. {
  101. _enc _icode 3 -1 roll put
  102. _icode 1 add
  103. }
  104. if
  105. /_icode xdd
  106. } for
  107. cleartomark
  108. _enc
  109. } bd
  110. /trEnc {
  111. /_enc xdd
  112. 255 -1 0 {
  113. exch dup -1 eq
  114. { pop /.notdef }
  115. { Encoding exch get }
  116. ifelse
  117. _enc 3 1 roll put
  118. } for
  119. pop
  120. _enc
  121. } bd
  122. /TE {
  123. /_i xdd
  124. StandardEncoding 256 array copy modEnc
  125. _pdfEncodings exch _i exch put
  126. } bd
  127. /TZ
  128. {
  129. /_usePDFEncoding xdd
  130. findfont
  131. dup length 6 add dict
  132. begin
  133. {
  134. 1 index /FID ne { def } { pop pop } ifelse
  135. } forall
  136. /pdf_origFontName FontName def
  137. /FontName exch def
  138. _usePDFEncoding 0 ge
  139. {
  140. /Encoding _pdfEncodings _usePDFEncoding get def
  141. pop
  142. }
  143. {
  144. _usePDFEncoding -1 eq
  145. {
  146. counttomark 0 eq
  147. { pop }
  148. {
  149. Encoding 256 array copy
  150. modEnc /Encoding exch def
  151. }
  152. ifelse
  153. }
  154. {
  155. 256 array
  156. trEnc /Encoding exch def
  157. }
  158. ifelse
  159. }
  160. ifelse
  161. pdf_EuroProcSet pdf_origFontName known
  162. {
  163. pdf_origFontName pdf_AddEuroGlyphProc
  164. } if
  165. FontName currentdict
  166. end
  167. definefont pop
  168. }
  169. bd
  170. /Level2?
  171. systemdict /languagelevel known
  172. {systemdict /languagelevel get 2 ge}
  173. {false}
  174. ifelse
  175. def
  176. Level2?
  177. {
  178. /_pdfFontStatus
  179. {
  180. currentglobal exch
  181. /Font resourcestatus
  182. {pop pop true}
  183. {false}
  184. ifelse
  185. exch setglobal
  186. } bd
  187. }
  188. {
  189. /_pdfFontStatusString 50 string def
  190. _pdfFontStatusString 0 (fonts/) putinterval
  191. /_pdfFontStatus
  192. {
  193. FontDirectory 1 index known
  194. { pop true }
  195. {
  196. _pdfFontStatusString 6 42 getinterval
  197. cvs length 6 add
  198. _pdfFontStatusString exch 0 exch getinterval
  199. { status } stopped
  200. {pop false}
  201. {
  202. { pop pop pop pop true}
  203. { false }
  204. ifelse
  205. }
  206. ifelse
  207. }
  208. ifelse
  209. } bd
  210. }
  211. ifelse
  212. Level2?
  213. {
  214. /_pdfCIDFontStatus
  215. {
  216. /CIDFont /Category resourcestatus
  217. {
  218. pop pop
  219. /CIDFont resourcestatus
  220. {pop pop true}
  221. {false}
  222. ifelse
  223. }
  224. { pop false }
  225. ifelse
  226. } bd
  227. }
  228. if
  229. /_pdfString100 100 string def
  230. /_pdfComposeFontName
  231. {
  232. dup length 1 eq
  233. {
  234. 0 get
  235. 1 index
  236. type /nametype eq
  237. {
  238. _pdfString100 cvs
  239. length dup dup _pdfString100 exch (-) putinterval
  240. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  241. 2 index exch cvs length
  242. add 1 add _pdfString100 exch 0 exch getinterval
  243. exch pop
  244. true
  245. }
  246. {
  247. pop pop
  248. false
  249. }
  250. ifelse
  251. }
  252. {
  253. false
  254. }
  255. ifelse
  256. dup {exch cvn exch} if
  257. } bd
  258. /_pdfConcatNames
  259. {
  260. exch
  261. _pdfString100 cvs
  262. length dup dup _pdfString100 exch (-) putinterval
  263. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  264. 3 -1 roll exch cvs length
  265. add 1 add _pdfString100 exch 0 exch getinterval
  266. cvn
  267. } bind def
  268. /_pdfTextTempString 50 string def
  269. /_pdfRegOrderingArray [(Adobe-Japan1) (Adobe-CNS1) (Adobe-Korea1) (Adobe-GB1)] def
  270. /_pdf_CheckSupplements
  271. {
  272. 1 index _pdfTextTempString cvs
  273. false
  274. _pdfRegOrderingArray
  275. {
  276. 2 index exch
  277. anchorsearch
  278. { pop pop pop true exit}
  279. { pop }
  280. ifelse
  281. }
  282. forall
  283. exch pop
  284. {
  285. /CIDFont findresource
  286. /CIDSystemInfo get /Supplement get
  287. exch /CMap findresource
  288. /CIDSystemInfo get
  289. dup type /dicttype eq
  290. {/Supplement get}
  291. {pop 0 }
  292. ifelse
  293. ge
  294. }
  295. { pop pop true }
  296. ifelse
  297. } bind def
  298. pdf_has_composefont?
  299. {
  300. /_pdfComposeFont
  301. {
  302. 2 copy _pdfComposeFontName not
  303. {
  304. 2 index
  305. }
  306. if
  307. (pdf) exch _pdfConcatNames
  308. dup _pdfFontStatus
  309. { dup findfont 5 2 roll pop pop pop true}
  310. {
  311. 4 1 roll
  312. 1 index /CMap resourcestatus
  313. {
  314. pop pop
  315. true
  316. }
  317. {false}
  318. ifelse
  319. 1 index true exch
  320. {
  321. _pdfCIDFontStatus not
  322. {pop false exit}
  323. if
  324. }
  325. forall
  326. and
  327. {
  328. 1 index 1 index 0 get _pdf_CheckSupplements
  329. {
  330. 3 -1 roll pop
  331. 2 index 3 1 roll
  332. composefont true
  333. }
  334. {
  335. pop pop exch pop false
  336. }
  337. ifelse
  338. }
  339. {
  340. _pdfComposeFontName
  341. {
  342. dup _pdfFontStatus
  343. {
  344. exch pop
  345. 1 index exch
  346. findfont definefont true
  347. }
  348. {
  349. pop exch pop
  350. false
  351. }
  352. ifelse
  353. }
  354. {
  355. exch pop
  356. false
  357. }
  358. ifelse
  359. }
  360. ifelse
  361. { true }
  362. {
  363. dup _pdfFontStatus
  364. { dup findfont true }
  365. { pop false }
  366. ifelse
  367. }
  368. ifelse
  369. }
  370. ifelse
  371. } bd
  372. }
  373. {
  374. /_pdfComposeFont
  375. {
  376. _pdfComposeFontName not
  377. {
  378. dup
  379. }
  380. if
  381. dup
  382. _pdfFontStatus
  383. {exch pop dup findfont true}
  384. {
  385. 1 index
  386. dup type /nametype eq
  387. {pop}
  388. {cvn}
  389. ifelse
  390. eq
  391. {pop false}
  392. {
  393. dup _pdfFontStatus
  394. {dup findfont true}
  395. {pop false}
  396. ifelse
  397. }
  398. ifelse
  399. }
  400. ifelse
  401. } bd
  402. }
  403. ifelse
  404. /_pdfStyleDicts 4 dict dup begin
  405. /Adobe-Japan1 4 dict dup begin
  406. Level2?
  407. {
  408. /Serif
  409. /HeiseiMin-W3-83pv-RKSJ-H _pdfFontStatus
  410. {/HeiseiMin-W3}
  411. {
  412. /HeiseiMin-W3 _pdfCIDFontStatus
  413. {/HeiseiMin-W3}
  414. {/Ryumin-Light}
  415. ifelse
  416. }
  417. ifelse
  418. def
  419. /SansSerif
  420. /HeiseiKakuGo-W5-83pv-RKSJ-H _pdfFontStatus
  421. {/HeiseiKakuGo-W5}
  422. {
  423. /HeiseiKakuGo-W5 _pdfCIDFontStatus
  424. {/HeiseiKakuGo-W5}
  425. {/GothicBBB-Medium}
  426. ifelse
  427. }
  428. ifelse
  429. def
  430. /HeiseiMaruGo-W4-83pv-RKSJ-H _pdfFontStatus
  431. {/HeiseiMaruGo-W4}
  432. {
  433. /HeiseiMaruGo-W4 _pdfCIDFontStatus
  434. {/HeiseiMaruGo-W4}
  435. {
  436. /Jun101-Light-RKSJ-H _pdfFontStatus
  437. { /Jun101-Light }
  438. { SansSerif }
  439. ifelse
  440. }
  441. ifelse
  442. }
  443. ifelse
  444. /RoundSansSerif exch def
  445. /Default Serif def
  446. }
  447. {
  448. /Serif /Ryumin-Light def
  449. /SansSerif /GothicBBB-Medium def
  450. {
  451. (fonts/Jun101-Light-83pv-RKSJ-H) status
  452. }stopped
  453. {pop}{
  454. { pop pop pop pop /Jun101-Light }
  455. { SansSerif }
  456. ifelse
  457. /RoundSansSerif exch def
  458. }ifelse
  459. /Default Serif def
  460. }
  461. ifelse
  462. end
  463. def
  464. /Adobe-Korea1 4 dict dup begin
  465. /Serif /HYSMyeongJo-Medium def
  466. /SansSerif /HYGoThic-Medium def
  467. /RoundSansSerif SansSerif def
  468. /Default Serif def
  469. end
  470. def
  471. /Adobe-GB1 4 dict dup begin
  472. /Serif /STSong-Light def
  473. /SansSerif /STHeiti-Regular def
  474. /RoundSansSerif SansSerif def
  475. /Default Serif def
  476. end
  477. def
  478. /Adobe-CNS1 4 dict dup begin
  479. /Serif /MKai-Medium def
  480. /SansSerif /MHei-Medium def
  481. /RoundSansSerif SansSerif def
  482. /Default Serif def
  483. end
  484. def
  485. end
  486. def
  487. /TZzero
  488. {
  489. /_fyAdj xdd
  490. /_wmode xdd
  491. /_styleArr xdd
  492. /_regOrdering xdd
  493. 3 copy
  494. _pdfComposeFont
  495. {
  496. 5 2 roll pop pop pop
  497. }
  498. {
  499. [
  500. 0 1 _styleArr length 1 sub
  501. {
  502. _styleArr exch get
  503. _pdfStyleDicts _regOrdering 2 copy known
  504. {
  505. get
  506. exch 2 copy known not
  507. { pop /Default }
  508. if
  509. get
  510. }
  511. {
  512. pop pop pop /Unknown
  513. }
  514. ifelse
  515. }
  516. for
  517. ]
  518. exch pop
  519. 2 index 3 1 roll
  520. _pdfComposeFont
  521. {3 -1 roll pop}
  522. {
  523. findfont dup /FontN